fortran教程4：判断和循环语句

您所在的位置：网站首页 › fortran77 if语句 › fortran教程4：判断和循环语句

fortran教程4：判断和循环语句

2024-07-15 06:40| 来源: 网络整理| 查看: 265

文章目录判断语句select case语句do循环while循环exit, cycle, stop Fortran系列：

1 安装和编译💎 2 数据类型💎 3 过程和子过程💎 4 判断和循环💎5 数组6 字符串💎7输入输出💎8模块和包管理💎9 动态链接库，与C混合编程判断语句

fortran的if语句，有if和end if包裹，判断条件后的执行语句，由then开启。下面做一个小函数，用于根据学生分数评价ABCD，即90分以上是A；80-90是B；60-80是C；不及格是D。

function grad2class(n) result(flag) implicit none real, intent(in) :: n character :: flag if (n>90) then flag = "A" else if (n>80) then flag = "B" else if (n>60) then flag = "C" else flag = "D" end if end function grad2class program ifTest implicit none real :: a = 95.5 character :: flag, grad2class flag = grad2class(a) print *, a, "is ", flag end program ifTest

结果为

95.5000000 is A

select case语句

一般来说，家长得知孩子考了90多分，会很兴奋；如果考了80多分，差强人意，马马虎虎；如果六七十分，可能会有些不爽；如果不及格，那肯定就开喷了。

这个流程当然也可以用if…else来实现，但ABCD四个级别，彼此更加平等，用select case显然更加合理一些。

subroutine sayclass(flag) implicit none character :: flag select case(flag) case('A') print *, "exciting" case('B') print*, "Good Luck" case('C') print*, "hehe" case default print*, "shit!!" end select end subroutine sayclass program ifTest call sayClass("D") end program ifTest

运行结果为

>a.exe shit!!

do循环

do循环有点像现代语言中的for循环，do i = m,n表示让i从m循环到n，类似于for(i=m; i

【本文地址】

fortran教程4：判断和循环语句

fortran教程4：判断和循环语句

今日新闻

推荐新闻